home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 26.zip
/
BS1 part 26
/
C for beginners.adf
/
source
/
letter.c
< prev
next >
Wrap
Text File
|
1978-01-17
|
690b
|
20 lines
/* Filename: "letter.c" */
/**********************************************************************/
/* Name: letter */
/* Parameter: z (char) */
/* Return value: It was a letter (1), else (0) */
/* Function: Determines if it was a letter or not */
/* Other: - */
/**********************************************************************/
#define FALSE 0
#define TRUE 1
letter(z)
register char z;
{
if ((z >= 'a' && z <= 'z') || (z >= 'A' && z <= 'Z')) return(TRUE);
return(FALSE);
}